From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Aug 2009 08:47:39 +0000 (+0000)
Subject: * dired-aux.el (dired-show-file-type): Let-bind
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10908
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=73428ba806b4e6cec04572325abb85e6e4e8c406;p=emacs.git

* dired-aux.el (dired-show-file-type): Let-bind
`process-file-side-effects' with nil.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 2e31e9cd90d..e56ac3e9fcf 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2427,13 +2427,14 @@ with the command \\[tags-loop-continue]."
 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
 true then the type of the file linked to by FILE is printed instead."
   (interactive (list (dired-get-filename t) current-prefix-arg))
-  (with-temp-buffer
-    (if deref-symlinks
-	(process-file "file" nil t t "-L" "--" file)
-      (process-file "file" nil t t "--" file))
-    (when (bolp)
-      (backward-delete-char 1))
-    (message "%s" (buffer-string))))
+  (let (process-file-side-effects)
+    (with-temp-buffer
+      (if deref-symlinks
+	  (process-file "file" nil t t "-L" "--" file)
+	(process-file "file" nil t t "--" file))
+      (when (bolp)
+	(backward-delete-char 1))
+      (message "%s" (buffer-string)))))
 
 (provide 'dired-aux)